home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / outprt < prev    next >
Text File  |  1995-03-31  |  2KB  |  74 lines
  1. Article 3322 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!cs.utexas.edu!uunet!mcsun!ukc!strath-cs!cs.glasgow.ac.uk!kcl-cs!neil
  3. From: neil@kcl-cs.UUCP (Neil Faulks)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: OUTPRT for HP28S
  6. Message-ID: <1915@xenon.kcl-cs.UUCP>
  7. Date: 8 Jan 91 12:53:46 GMT
  8. Reply-To: neil@kcl-cs.UUCP (Neil Faulks)
  9. Organization: Dept. of Computing, Kings College London
  10. Lines: 60
  11.  
  12. The following program aids transfer of programs and data from a HP28S
  13. to a HP48SX running INPRT.
  14.  
  15. OUTPRT takes as an argument a list of names of objects to be transmited
  16. to a 48. The list may include the names of subdirectories which will
  17. be handled correctly as will further levels of directory.
  18.  
  19. The resulting string on the 48 can then be converted directly to a directory
  20. object by
  21.  
  22. 1) Using OBJ-> (or STR->)
  23. 2) Edit the resultant string (on the stack) and simply remove the leading
  24.    " or C$ #### (everything up to the word DIR)
  25.    Pressing ENTER will cause the directory object to be parsed as if it
  26.    had just been typed by the user.
  27.  
  28. Problems
  29.  
  30. User names on the 28 which conflict with built-in names on the 48 will cause
  31. problems. These can be dealt with by simply by using method (2) above:
  32. when an error occurs the cursor will be positioned to allow easy editing
  33. of the name. OUTPUT v2 may fix this.
  34.  
  35. Directories with lots of objects or large arrays take so long to build
  36. that INPRT times out. For example when sending a big dir you should
  37. type VARS, wait for it to complete, then run INPRT on the 48 and OUTPRT
  38. on the 28.
  39.  
  40. Strings containing nulls can not be edited using method (2).
  41.  
  42. OUTPRT v1
  43. <<
  44.     "DIR" PR1 DROP CR
  45.     PATH N->S
  46.     -> L P
  47.     <<
  48.         P 1 DISP
  49.         1 L SIZE
  50.         IF DUP THEN
  51.             FOR I L I GET DUP N->S PR1 2 DISP
  52.                 IFERR RCL THEN
  53.                     EVAL CR
  54.                     VARS CR OUTPRT
  55.                     P STR-> P 1 DISP
  56.                 ELSE
  57.                     IF DUP TYPE 3 == THEN
  58.                         CR ->STR
  59.                     END
  60.                     PR1 DROP
  61.                 END
  62.             NEXT
  63.         END
  64.     >>
  65.     "END" PR1 DROP
  66. >>
  67.     
  68. N->S
  69. <<
  70.     ->STR 2 OVER SUB SIZE 1 - SUB
  71. >>
  72.  
  73.  
  74.